home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
ques_221.zip
/
SAMPLES.ZIP
/
BBSLIST.ZIP
/
BBSLIJST.Q-A
< prev
Wrap
Text File
|
1990-11-25
|
6KB
|
310 lines
:Menu
clearscreen
display " ╔═══════════════════════════════════╗ |"
display " ║ INTERFACE Other BBS's List ║ |"
display " ╠═══════════════════════════════════╣ |"
display " ║ ║ |"
display " ║ [A]dd to the BBS list ║ |"
display " ║ [D]ownload the List ║ |"
display " ║ [H]elp with Abrev/Codes ║ |"
display " ║ [L]ist Other BBS's ║ |"
display " ║ [Q]uit ║ |"
display " ║ ║ |"
display " ╚═══════════════════════════════════╝ |"
getchoice ADHLQ 31
if 31 = "A"
gotolabel Add
endif
if 31 = "D"
gotolabel sendit
endif
if 31 = "H"
gotolabel Help
endif
if 31 = "L"
gotolabel List
endif
if 31 = "Q"
display "|"
display "|"
quit
endif
quit
:
:Add
clearscreen
changecolor 14
display "What is the BBS Name (20 chars max)....? "
changecolor 15
ask 20 1
changecolor 14
display "BBS Phone Number ( ###-###-#### )..... ? "
changecolor 15
ask 12 2
changecolor 14
display "State or Province ( 2 chars max )..... ? "
changecolor 15
ask 2 3
changecolor 14
display "What is the Maximum Baud Rate ........ ? |"
changecolor 7
display "120[0] [2]400 [4]800 [9]600 [1]9.2 [3]8.4 :"
changecolor 15
getchoice 012349 4
display "|"
changecolor 14
display "What are the Hours of Availability ... ? |"
changecolor 7
display "[A]ll/24hrs [D]aytime only [N]ights Only |"
display "[S]trange Hrs [V]ariable hrs [W]eekends 24hrs "
changecolor 15
getchoice ADNSVW 5
changecolor 14
display "|"
display "What is the Access Status for the BBS. ? |"
changecolor 7
display "[C]ontrolled [F]ee Charged [O]pen [P]rivate "
changecolor 15
getchoice CFOP 6
changecolor 14
display "|"
display "What is the Sysop's Name (18 chars).. ? "
changecolor 15
ask 18 7
changecolor 14
display "BBS Software used (8 chars max)...... ? "
changecolor 15
ask 8 8
changecolor 14
display "The Month and Year you personally called |"
display " when this system was Online (mm/yy)..? "
changecolor 15
ask 5 9
gotolabel showinfo
:
:showinfo
clearscreen
Display "HERE'S THE INFORMATION YOU'VE SUPPLIED ! |"
Display "|"
display "1. BBS Name ..........: "
listanswer 1
display "2. BBS Phone Number ..: "
listanswer 2
display "3. State/Province ....: "
listanswer 3
display "4. Maximum Baud Rate .: "
listanswer 4
display "5. BBS Hours .........: "
listanswer 5
display "6. System Access .....: "
listanswer 6
display "7. Sysop's Name ......: "
listanswer 7
display "8. BBS Software ......: "
listanswer 8
display "9. Date Checked Online: "
listanswer 9
display "|"
display "Select: [A]bort [E]dit [S]ave Info |"
getchoice AES 20
if 20 = "A"
gotolabel menu
endif
if 20 = "E"
gotolabel edit
endif
if 20 = "s"
gotolabel saveit
endit
gotolabel menu
:
:edit
Display "|"
changecolor 15
Display "Which entry do you want to change ? (1-9) ? "
changecolor 14
ask 2 30
if 30 = "1"
gotolabel k1
endif
if 30 = "2"
gotolabel k2
endif
if 30 = "3"
gotolabel k3
endif
if 30 = "4"
gotolabel k4
endif
if 30 = "5"
gotolabel k5
endif
if 30 = "6"
gotolabel k6
endif
if 30 = "7"
gotolabel k7
endif
if 30 = "8"
gotolabel k8
endif
if 30 = "9"
gotolabel k9
endif
display "|"
changecolor 15
display "Incorrect choice, please try again|"
display "|"
changecolor 7
display "Press <ENTER>"
ask 1 39
gotolabel showinfo
:
:k1
clearscreen
changecolor 14
display "What is the BBS Name (20 chars max)....? "
changecolor 15
ask 20 1
gotolabel showinfo
:
:k2
clearscreen
changecolor 14
display "BBS Phone Number ( ###-###-#### )..... ? "
changecolor 15
ask 12 2
gotolabel showinfo
:
:k3
clearscreen
changecolor 14
display "State or Province ( 2 chars max )..... ? "
changecolor 15
ask 2 3
gotolabel showinfo
:
:k4
clearscreen
changecolor 14
display "What is the Maximum Baud Rate ........ ? |"
changecolor 7
display "120[0] [2]400 [4]800 [9]600 [1]9.2 [3]8.4 |"
changecolor 15
getchoice 012349 4
gotolabel showinfo
:
:k5
clearscreen
changecolor 14
display "What are the Hours of Availability ... ? |"
changecolor 7
display "[A]ll/24hrs [D]aytime only [N]ights Only |"
display "[S]trange Hrs [V]ariable hrs [W]eekends 24hrs "
changecolor 15
getchoice ADNSVW 5
gotolabel showinfo
:
:k6
clearscreen
changecolor 14
display "What is the Access Status for the BBS. ? |"
changecolor 7
display "[C]ontrolled [F]ee Charged [O]pen [P]rivate |"
changecolor 15
getchoice CFOP 6
gotolabel showinfo
:
:k7
clearscreen
changecolor 14
display "What is the Sysop's Name (18 chars).. ? "
changecolor 15
ask 18 7
gotolabel showinfo
:
:k8
clearscreen
changecolor 14
display "BBS Software used (8 chars max)...... ? "
changecolor 15
ask 8 8
gotolabel showinfo
:
:k9
clearscreen
changecolor 14
display "The Month and Year you personally called |"
display " when this system was Online (mm/yy)..? "
changecolor 15
ask 5 9
gotolabel showinfo
:
:saveit
output "#1L20 #2L12 #3L2 #4L1 #5L1 #6L1 #7L18 #8L8 #9L5 " f:\qbbs\misFILES\BBS.ASC
gotolabel menu
:
:List
clearscreen
displayfile BBSHDR
displayfile BBS
display " <<< PRESS RETURN >>>|"
ask 0 39
gotolabel menu
:
:help
clearsceen
Displayfile BBSHLP
display "|"
display " <<< PRESS RETURN >>>|"
ask 0 39
gotolabel menu
:
:sendit
display "|"
display "|"
display "Select which Protocol to Download the BBS List with: |"
display "[A]bort [X]modem [Y]modem [Z]modem "
getchoice axyz 15
if 15 = "x"
display "|"
display "|"
Display "Sending BBSLIST.ASC ... by xmodem|"
run dsz.com sx f:\qbbs\misFILES\BBS.ASC
endif
if 15 = "y"
display "|"
display "|"
Display "Sending BBSLIST.ASC ... by ymodem|"
run dsz.com sb f:\qbbs\misFILES\BBS.ASC
endif
if 15 = "z"
display "|"
display "|"
Display "Sending BBSLIST.ASC ... by zmodem|"
run dsz.com sz -r f:\qbbs\misfiles\BBS.ASC
endif
gotolabel menu
: